﻿Namespace Model

    Public Class GroupEventArgs
        Inherits EventArgs

        Private _Group As Grouping.ProgramGroup
        Public ReadOnly Property Group() As Grouping.ProgramGroup
            Get
                Return _Group
            End Get
        End Property

        Public Sub New(ByVal group As Grouping.ProgramGroup)
            _Group = group
        End Sub
    End Class

End Namespace
